#########################################################################
#									#
# Name:	 	link_module.pm (Perl Module)				#
#									#
# Completed:	8th October, 2003.					#
#									#
# Updated:	9th February, 2005.					#
#									#
# Author:	Simon Edwards, Linuxha.net				#
#									#
# Arguments:	N/A							#
#									#
# Purpose:	This modules is a LEMS module that is used by the	#
#		cluster to check the physical link level status of a	#
#		connection, and if not valid will attempt to migrate	#
#		the IP address to another interface.			#
#									#
# Limitations:	1 - Lots probably.					#
#									#
# Environment:	None.							#
#									#
# Exit Codes:	N/A							#
# 									#
# Version:	@(#)1.0.0 Original (SE)>				#
# 		@(#)1.0.1 Support of IPinterfaces module (SE)>		#
# 		@(#)1.0.2 Issue warnings only once - 0043 (SE)>		#
# 		@(#)1.0.3 Make use of miitoollib if available (SE)>	#
# 		@(#)1.0.4 Changes for improvement 0109 (SE)>		#
# 		@(#)1.0.5 Remove all code (not needed) (SE)>		#
#									#
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#									#
# Complete SOCM Version History						#
#									#
# Version:	1.0.0							#
# Date:		7th October, 2003.					#
# Author:	Simon Edwards, Proprius Consulting Ltd.			#
# Change:	Original.						#
#									#
# Version:	1.0.2							#
# Date:		26th November, 2003.					#
# Author:	Simon Edwards, Proprius Consulting Ltd.			#
# Change:	Ensure that the warnings are produced only once.	#
#									#
# Version:	1.0.3							#
# Date:		6th January, 2005.					#
# Author:	Simon Edwards, Linuxha.net				#
# Change:	If the miitoollib library is available use it -		#
#		saves a fork/exec each time this module is used.	#
#									#
#########################################################################

package link_module;

#########################################################################
# Note this link module is preferred over the IP module, but both 	#
# can be used in conjunction if required, or just one. Some network	#
# cards do not support link-level testing - see the output when		#
# building the cluster/packages.					#
#########################################################################
BEGIN {
	push @INC,"/usr/local/cluster/lib/perl";
}

sub new {
my $self={};

	::errmsg("As of Linuxha.net v0.8.3 link level monitoring is");
	::errmsg("handled via the clnetd.");
	return undef;
}

sub check {
my $self=shift;

	return 0;
}

1;
